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$ 1 001 MODULE gencode3 (IDENT='v04-000' 
; § 00¢ ADDRESSING_MODE (EXTERNAL=GENERAL) ) 
ee Be less 
: 5 Ope ! | CeeoenancnnasenasersasossseseneneoeeeseonsoooNerenaNnenesononsonoesoonINeTe 
Ps * * 
3 ; 009 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
3 8 008 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 10 4 84 : 7 ALL RIGHTS RESERVED. ® 
; : * 
$ 11 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; \¢ Bot¢ 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 1 01 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 0016 is TRANSFERRED. * 
; : e * 
; 18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
H so Boe : - CORPORATION. * 
Ps w 
; $¢ 574 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 2 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
>; 24 0024 1 !* * 
. ° ae 0025 1 !* * 
4 $8 B0s8 : LRA RARER AEAREAAAAAERAAEAAAAAAEEA EEE A EERE AAA EEA EEEE 
; 28 0028 1 !++ 
: $3 ih 94 } } Facility: Command Definition Utility, Table Generator Module 3 
: 1 0031 1 ! Abstract: This module is one of a few modules that is responsible 
: 3 ot 74 1! for generating the blocks that make up the DCL tables. 
[<2 0033 1! The blocks are generated by traversing the intermediate 
3 0034 1! representation of the CLD file created by the parsing 
; 0035 1! modules. 
; 0036 1! 
ee i 0037 1! It is recommended that you read over the CLITABDEF.SDL file 
3 $ Boa8 ; before reading this code. 
; ay aped ! Environment: Standard CDU environment. 
: 42 0042 1 ! Author: Paul C. Anagnostopoulos 
: 6 0045 1 ! Creation: 11 January 1983 
HY 44 0044 1! 
; 45 0045 1 ! Modifications: 
; 6446 0046 1! 
; 667 0047 1! v04-002 PCG0001 Peter George 06-Dec-1983 
; $8 ppg : Add NEG operator. 
: 50 $080 1 v04-001 PCA1025 Paul C. Anagnostopoulos 25-Jul-1983 
:°. 0051 1! Only qualifiers should be NEGATABLE by default. 
3 26 4 : Change the way in which the CONCAT attribute is determined. 
; «54 goss} 
;- R032 ea ; 
> 056 1 Library eyes ferecys ib"; 
: 0057 1 require ‘clitabdef'; 
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58 0382 1 require ‘cdureq'; 
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: 60 79% 1! TABLE OF CONTENTS 

> 61 0738 1 ' ee ee ee Selita me ae ene ee em a ct a emma 
_ 8738 1 

a 799 1 forward routine 

; © 0800 1 cdu$generate_entity: novalue, 

; o? 8 Oe ! cdu$generate_expression: novalue; 

[- 0803 1! EXTERNAL REFERENCES 
4 68 0804 1 ' Bese eS eeeeoeoeeeseo =2S@® SSS eS eS eS eS Se eeeaeaneaneaanan 
; #69 0805 1 

3 70 0806 1 external routine 

.. 2s th 1 << engrese Reeth. 

: 7 808 1 cdu$ ookup ch 

eo: 0809 1 cdu$Sremember gh RES 

: 74 0810 1 cdu$Sreport_semantic_error, 

3 rf 0811 1 Lib$get_vm; 

; 0812 1 

: 77 0815 1 external 

; 0814 1 cdu$gl_root_node: ref node, 

,.o 0815 1 cdu$gl_tablé: pointer; 


1984 :38: VAX-11 Bliss-32 V4.0-74 Pa 4 
v¥04=000 Ory88t FF:8Bi07 | MPRKSUMGMASTERSCEDU SRCIGENCODES.B3209° (35 


; 8 0816 1 !++ 

; § 0817 1 ! Description: This routine is called to generate an entity block for 
<= 0818 1! a parameter, qualifier, or type keyword. The block 

3 Se dh : describes the entity in full detail. 

; 0821 1 ! Parameters:  top_node By reference, the top-level node 

6 «6UOF 08 ¢ ee representing the entity. 

3 ss 8 } } number The sequential number of the entity. 

; 9 b85¢ 1 ! Returns: Nothing. 

, 9 0826 1! 

2 + tH4 1 ! Notes 

;  ¥ 0826 1 !-- 

; 94 + i94 1 

; 0830 1 GLOBAL ROUTINE cdu$generate_entity(top_node: ref node, 

; 0831 1 number: long) : novalue 

. oF bees 2 = BEGIN 

is 083 § 

; 99 0834 local 

: 100 0835 2 status: long, 

gs 40} 0836 2 ont ity: pointer, 

: 102 0837 2 variable_ptr: long, 

: 103 0838 2 child: ref node, 

; 104 0839 2 randchild: ref node, 

3 105 0840 2 efinition: ref node, oi a 

: 106 0841 2 concatenate_seen: boolean initial (false); 

3; 07 0842 2 

; 108 0843 2 . ; 

3 1% 73 § ! Allocate space for the largest possible entity block. 

361211 P 0846 2 allocate_largest_table_block(ent_k_length + ent_k_max_name + ent_k_max_label + 
3 ive oper 3 ent_k_max_prompt + ent_k_max_defval, entity); 
3 (114 0849 2 ! Begin by initializing the entity block. This includes any fields that 
3 132 i t3 $ ! don't depend on the intermediate representation. 

3; 117 4 ¢ entityLent_b_type) =_block_k_entity; 

; 118 085 entityLent_b_subtype] = (selectoneu .top_node[node_w type] of set 

3; (119 0854 {node_k_parameter]: ent_Kk_parameter; 

: 120 0855 Cnode_k_qualifier): ent_k_qualifier; 

3: 121 0856 Cnode_k_keyword]: ent_k_keyword; 

s ee 0857 tes); 

3 tes 0858 entityCent_w flags] = 0; SY, 

; Ise 0859 if .top_node[node_w_type] eqlu node_k_qualifier then 

> 125 086 entitylent_vV_neg] = true; 

: 126 086 ont ityfent_v_tro ount] = 3; : 

s ler 0862 entityLent_l_next) = entitylent_l_syntax] = entityLent_l_user_type] = 0; 
: 128 0863 entityCent_b_number) = .number; é 

: 129 0864 entitylent_b_valtype] = ent_k_user_defined; 

3 i +944 entitylent_w_defval) = 0; 

3; 132 0867 ! Set up to add information to the variable portion of the biock. 

3 tS pae8 ' Then add the entity name as an ASCIC string. 

3; 339 0870 variable_ptr = entitylent_z variable]; | 

: 136 0871 entity(ent_w_name) = .vartable ptr - .entity; 

Weg 0872 ch$move(1+>top_node[node_b_text_length],top_node[node_b_text_length], 
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: -variable_ptr); 
variable _ptr = .variable_ptr + 1+. top_node[node_b_text_length]; 


! Now we scan the children of the top-level node in order to collect 
! the various attributes of the entity and place them in the entity block. 


scan _children(top_node,child, 
! Case on the type of the child. 


case .child(node_w_type] from 0 to node_k_max_type of set 
Cnode_k_batch): 


! The BATCH clause simply sets a flag. 
entitylent_v_batdef] = true; 
Cnode_k_cliflags): 


: For the CLIFLAGS clause, we scan the children, each of 
! which specifies a flag to be set. 


scan_children(child,grandchild, 
selectoneu .grandchild(node_w_type] of set 
Cnode_k_mcrignore]: entityLent_v_mcrignore] = true; 
Cnode_k_mcroptdelim]: entitylent_v_mcroptdelim] = true; — ; 
Cotherwise): cdu$Sreport_semantic_error(msg(cdu$_igncliflag),1, 
-grandchildEnode_w_line]); 
tes; 
); 
Cnode_k_default]: 
! The DEFAULT clause simply sets a flag. 
entityCent_v_deftrue] = true; 
Cnode_k_label]: 
: The LABEL clause specifies a symbol by which this entity 
! is to be retrieved. Add it to the variable portion of 
! the block as an ASCIC string. 
(entityCent_w label] = .variable_ptr - .entity; 
chSmove(+.childlnode b_text_length).childinode_b_text_length], 
-variable_ptr); 
variable_ptr = .variable_ptr + 1+. child(node_b_text_length);); 
Cnode_k_negatable): 
! The NEGATABLE clause simply sets a flag. 
entityLent_v_neg] = true; 


(node_k_nonnegatable): 
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195 ! The NONNEGATABLE clause simply clears a flag. 
entitylent_v_neg] = false; 
Cnode_k_placement): 
: The PLACEMENT clause specifies where the entity can 
one on the command line. The node contains one of 


: ree es which have already been checked. We can 
! just select on the first letter of the symbol. 


WAWWNNWNIWWN 


SOONAOUNE WN OC OODNAUE WR OOONOULSWN—O 


petegtoneu yp ah pee hyphen S yoy t_text]) of set 


4 
0 4 ow ent_v_verb] = true; 
0 6 entitylent_v_parm] = false;); 
0 4 C'L'J: (entitylent_V_verb] = false; 
4 ent itytent_i_parn] = true;); 
: 2 entitylent_v_verb] = entityLent_v_parm] = true; 
es; 
4 
4 Cnode_k_prompt): 


: The PROMPT clause specifies a x which is to be used 
: to prompt for a parameter. It is stored in the variable 
! portion of the block as an ASCIC string. 


(entityLent_w prgaets = .variable per - ,entity; 

chSmove (+. chil dlnode b_text.lengt ],child(node_b_text_length], 
-variable_ptr); 

variable_ptr = viriable_ptr + 1+. child[node_b_text_length];); 


Cnode_k_syntax): 
! The SYNTAX clause specifies the name of a syntax 


! definition which is to be used to parse the rest of the 
! command. Find the syntax definition. 


ooo 
Be 


o 


(definition = cdu$Slookup_child(.cdu$gl_root_node,node_k_define_syntax, 


~child(node_b_text_length),childtnode-t_textJ); 


! Call a routine to remember this reference for later 
! resolution. Or perhaps we didn't find it. 


SOoQooooooooooooooo 
QISSSESE 
—SOOOnous 


97 if .definition neqa 0 then Loves 

Br : cduSremember_reference(entityCent_l_syntax],.definition) 
else 

975 cdu$Sreport_semantic_error(msg(cdu$_undefsyntax),2, 

376 -child(node_w_line],childlhode_b_text_length]);); 

978 Cnode_k_value): 

979 


! The VALUE clause specifies a set of subclauses which 
! define the kind of value this entity can take. Set 
! the flag that says the entity can have a value. 


(entityCent_v_val] = true; 
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; i 4 $e scan_children(child, grandchild, 

: 2? . 124 ! Determine what to do from the node type. 

; 4 . 0996 selectoneu .grandchild(node_w_type] of set 

; +4 . ba: Cnode_k_concatenate): 

: 261 P 0996 ! The CONCATENATE clause simply sets a bit. 

3 : . 34.24 ! Remember that we've seen such a clause. 

5 264 P 0999 (entityLent_v_concat] = true; 

: so? : 4 concatenate_seen = true;); 

; sor . 106 Cnode_k_noconcatenate): 

: 269 P 1004 ! And NOCONCATENATE clears it. 

3 $70 . 1992 ! Remember that we've seen such a clause. 

: $f¢ P 1007 (entityCent_v_concat] = false; 

3 $i? 4 ine concatenate_seen = true;); 

: He 4 i3i9 § Cnode_k_default): 

3 277 P 1018 é ! The DEFAULT clause specifies default 

: 278 P 101 ! values which are placed in the variable 

s 344 4 ite 2 ! portion of the block as an ASCIC string. 

: 281 P 1916 ; (entityLent_w_defval] = hay Agee - .entity; | 

3 BY 4 a chSmove (+ .grandchi \dtnode_b_ text. ength] ,grandchild(node_b_text_length], 

3 -variable_ptr); 

3 See . iol ; variable_ptr = variable_ptr + 1+. grandchild([node_b_text_length];); 

; 286 “ 1959 § Cnode_k_impcat): 

: 4 4 ie? 2 ! The IMPCAT clause simply sets a flag. 

: $30 4 i9<? ; entityCent_v_impcat] = true; 

: 392 p 1087 2 Cnode_k_list): 

: Be . 108) ; ! The LIST clause simply sets a flag. 

; 236 P 1031 entityLent_v_list] = true; 

; $8 “ 1038 Cnode_k_required): 

: $00 4 HH ! The REQUIRED clause simply sets a flag. 

; ; 4 1037 entityCent_v_valreq] = true; 

: 74 . 1973 Cnode_k_type_builtin]: 

; 306 P 1041 ! The TYPE clause with a builtin type name 

s 307 - Ho ! specifies the class of values this entity 

; 308 P 104 ' can have. The type name has already been 

| 
L 
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; 309 P 1044 ' translated to its numeric code, so just 

; 19 4 : $2 ! move it into the block. 

3 \ 4 19¢? entitylent_b_valtype] = ch$rchar(grandchild(node_t_text]); 

5 314 P 1049 [node_k_type_user]: 

3 315 P 1050 

: 316 P 1051 ! The TYPE clause with a user-defined type 

s Si7 P 1926 ! name references a type definition. Find 

3 18 ; er ! the definition. 

; 320 P 1923 (definition = at pete Ae ages ag pes L_root_node,node_k_define_type, 
; $} 4 1926 .grandchild(node-b_text_length],grandchild(node-t_text1); 

; 58 P 1058 ! Call a routine to remember this reference 

; 324 P 1059 ! for later resolution. Or perhaps we didn't 

3 329 P 1060 ! find it. 

; 326 P 1061 

3 Ser P 1006 if .definition neqa 0 then j 

; 359 4 Sez : cduSremember_reference(entityCent_l_user_type],.definition) 
3 else 

; 330 P 1065 ; cdu$report_semant ic error imag tems undettves) -<. 

; 33) . 1e8 -grandchild=node_w_line],grandchild(node_b_text_length]);); 
3 338 P 1068 Cotherwise): 

> 334 P 1069 ; 

3 S39 P 1070 ! Oops, we have some kind of internal error. 

; 336 P 1071 2 

g Sor p 1 2 signal (msg(cdu$_intinvnode)); 

; 338 P 1073 2 tes; 

3 $i) P1074 2 3)3 

: 340 P 1075 2 

; 341 P 1076 2 Cinrange, 

; 342 P 1077 2 outrange): 

; 343 P1078 2 é : 

: 344 P 1079 2 ! Oops, we have some kind of internal error. 

; 345 P 1080 2 : 

; 346 P 1081 2 signal (msg(cdu$_intinvnode)); 

; 347 P 1082 2 tes; 

; 348 1083 2); 
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; 350 1084 ! Once we have processed all of the clauses, we need to handle additional 
: rH 1382 cases which are implied by the clauses. 
; 2g 1089 i If mo CNOJCONCATENATE clause specified, assume same as LIST. 
; 354 1088 : For a qualifier, if no PLACEMENT specified assume GLOBAL. 
3 399 1089 ! If no LABEL specified, use entity name. 
3 23 4 : For a parameter, If no PROMPT specified, use LABEL. 
; 358 1938 if not .concatenate_seen then 
; 359 109 entitylent_v_concat] = .entitylent_v_listd; 
3 0 1094 if .top_node(node_w_ftype) eqlu node_k_qualifier and 
3; we} 1095 not .entitylent_V_verb] and not VentityLent_v_parm] then ( 
3 o¢ 1096 entityLent_v_verb] = true; 
; 94 , entitylent_v_parm) = false; 
; 368 1099 if .entitylent_w_label) eqlu 0 then 
; 308 1100 entitylent_w_label] = vent ityCent_w_nane); 
3 7 1101 if .top_node(node_w_ftype] eqlu node_k_parameter and 
3 308 1196 -entityLent_w_prompt)] eqlu 0 then 
3 4 4 entityfent_w_prompt] = .entityLent_w_label); 
: 371 1105 ! Set the final Length of the entity block. 
; 378 Bt set_table_block_size(.variable_ptr - .entity, entity); 
; $2 1198 ! Place the TRO of the new block in its top-level representation node. 
; 377 1111 2 top_node(node_l_code] = .entity - .cdu$gl_table; 
; 378 BT return; 
: 379 1113 2 
; 380 1114 1 END; 
TITLE GENCODE3 
-IDENT \V04-000\ 
-EXTRN CDUSGENERATE PATH 
-EXTRN CDUSLOOKUP_C 
-EXTRN CDUSREMEMBER_REFERENC 
-EXTRN CDUSREPORT_SEMANTIC_ERROR 
-EXTRN LIBSGET_VM, CDUSGL_ROOT_NODE 
-EXTRN CDUSGL_TABLE, CDUS_IGNCCIFLAG 
«EXTRN CDUS_UNDEFSYNTA 
eEXTRN CDUS_UNDEFTYPE, CDUS_INTINVNODE 
-PSECT SCODES,NOWRT,2 
OFFC 00000 eENTRY CDUSGENERATE_ENTITY, Save R2,R3,R4,R5,R6,- ; 0830 
R7,R8,R9,R1I0,R11 : 
5E 14 C2 0000 SUBL2 # 3 
6E 94 6 00 CLRB - CONCATENATE_SEEN ; 083 
10 AE 9F 00007 PUSHAB EN ; 084 
10 AE OF 8F 9A QOOOA MOVZBL #222, 16(SP) : 
1 Ace 9F OOOOF PUSHAB : 
000000006 00 Fe dhs CALLS #2, LIBSGET_VM 3 
09 £8 0001 BLBS STATUS, 1$ ; 
0 dd O00IC PUSHL STATUS : 


ee 
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NCODES 18-56 -1984 23:38: VAX-11 Bliss-32 V4.0-74 Page 13 
Gf Vane p= ike 94388204 DISKSVMSMASTER:CCDU. SRCIGENCODE3.B32:1> (4). 
33 7 8} 134$:  CMPW (GRANDCHILD) , #51 : 
9 4 BNEQ 6$ ; 
68 40 «BF gh 6 BICB2 #64, (R11) : 
6E J 90 A 35$: nove “i, CONCATENATE_SEEN : 
19 67 8] F 36$:  CMPW (GRANDCHILD), #25 : 
19 ¢ 2 BNEQ 37$ 3 
an \) 56 59 A SUBW3 R9, VARIABLE_PTR 28(R9) : 
A 10 A? 9A 00239 MOVZBL 16(GRANDCHILD), R1 : 
5 01 AA 3 0230 MOV 1(R10), RO : 
66 10 A 50 : 0241 MOVC3 RO, 16(GRANDCHILD), (VARIABLE_PTR) : 
56 01 AALS 9E 0 46 MOV 1(RIO)CVARIABLE_PTRJ, VARIABLE_PTR : 
71 1 4B BRB 44$ : 
1D 67 81 00240 37$ CMPW (GRANDCHILD), #29 : 
06 12 0250 BNEQ  38$ : 
6B 80 8F 88 00 3¢ BISB2 #128, (R11) ; 
75 11 0025 BRB 46$ : 
1€ 67 81 00258 38$ CMPW (GRANDCHILD), #30 : 
05 if 00258 BNEQ : 
68 20 88 0025D BISB2 #32, (R11) : 
6B 11 00260 BRB 46$ : 
1F 67 81 00 62 39$ CMPW (GRANDCHILD), #31 : 
05 if 0026 BNEQ : 
6B 10 88 00267 BISB2 #16, (R11) : 
61 11 O026A BRB : 
20 67 B81 0026C 40$:  CMPW (GRANDCHILD), #32 : 
07 12 0026F BNEQ : 
15 a9 11. A? 90 00271 MOVB = 17(GRANDCHILD), 21(R9) : 
55 11 00276 BRB 4 : 
21 67 81 00278 41$:  CMPW (GRANDCHILD), #33 : 
43 12 00278 BNEQ 45$ : 
11. A? OF 00270 PUSHAB 17(GRANDCHILD) : 
7E 10 AZ? 9A 00280 MOVZBL 16(GRANDCHILD), -(SP) : 
06 DD 00284 PUSHL #6 : 
000000006 00 oD 00286 PUSHL  CDUSGL_ROOT_NODE F 
000000006 00 04 FB 0028C CALLS #4, CDOSLOORUP_CHILD F 
04 AE 50 00 00293 MOVL RO. DEFINITION ; 
OF 13 00297 BEQL 4 : 
04 AE OD 00299 PUSHL DEFINITION : 
10 Ad 99F 0029C PUSHAB : 
000000006 00 Y FB 0029F CALLS #2, CDUSREMEMBER_REFERENCE F 
25 11 00206 428: BRB 46$ : 
10 A? 9F 002A8 43$:  PUSHAB 16(GRANDCHILD) F 
7E 02 a? 3C¢ 99 AB MOVZWL 2(GRANDCHILD), (SP) : 
92 DD OO2AF PUSHL #2 : 
000000006 8F ODD 00 B1 PUSHL #CDUS_UNDEF TYPE : 
000000006 00 04 FB 00287 CALLS #4, CBUSREPORT_SEMANTIC_ERROR : 
D 11 99 ot 44%: BRB 46$ : 
000000006 8F DD 002CO 45$:  PUSHL #CDUS_INTINVNODE : 
000000006 99 1 FB 026 CALLS #1, LIBSSIGNAL ; 
7 04 A? p O2CD 46$:  MOVL 4(GRANDCHILD), GRANDCHILD : 
FF4O 1 00201 BRW 33$ : | 
58 04 =A 06 D4 47$: MOVL 4(CHILD), CHILD ; | 
FDD1 31 00208 BRW : 
A 6f E8 002DB 48$:  BLBS CONCATENATE SEEN, 49$ : 1092 
50 1 Q EF DF Ext2Zv #5, #1, (RIT), RO : 1093 
6B 01 6 0 FO 002E INSV) RO, #6. #1, (R11) : | 
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15-Se 1984 23:38:5 VAX-11 Bliss-32_ V4.0-74 P 
14-Sep-19 4 7:38:39 DI SKSVMSMASTER = CCDU. SRCIGENCODES.832" 


ee 
: Description: This routine is calied to generate an expression block 

for a boolean expression. If the expression contains an 
operator, then the expression block specifies the operator 
and its operands. If the expression is simply a path, then 
@ path expression block is constructed. 


Parameters: definition By reference, the node that represents the 
verb or syntax change definition in which 
the boolean expression appears. 

top_node By reference, the top-leve! node 
representing the expression. The TRO of 
the generated expression block will be 
stored therein. 


Returns: Nothing. 


: Notes: 


GLOBAL ROUTINE cdu$generate_expression(definition: ref node, 
BEGIN top_node: ref node): novalue 
= 


local 

status: long, ; 

operand count: long initial(0), 
expression: pointer, 

child: ref node, 

tro: long; 


: If the expression is otely a path, then call a routine to generate the 
! path expression block. That's all we have to do. 


if .top_node[node_w_type] oaty node_k_path then ( 
cdu$generate_path(.definition, .top_node); 
return; 
: The top-level expression node represents an operator. Count the number of 
: children of the node in order to determine how many operands there are. 


scan_children(top_node,child, 

' ncrementtoperand_count); 

: Allocate space for an expression block with the appropriate number of 

! operands. 

allocate_largest_table_block(exp_k_length + .operand_count*4, expression); 
! Initialize the header of the expression block. 

expressionLexp_b_type] =_block_k_expression; 


expressionlexp_b_subtype] = Tselectoneu_.top_node(node_w_type] of set 
node_k_not}:  é@xp_k_not; 


WIDEPINININNININININININININININIPINI AN APIPIPYINININPININININININIAIY ad a a tt tt st a es 
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| GENCODES 18-52 1984 23:38:5 VAX-11 Bliss-32 V4.0-74 Page 16 
|¥O4=000 14-Sep-19 4 $7 :38:34 DL eKSVMGMASTERSECDU- SRCIGENCODE3.83203° (5) 
: 439 117 node_k_any2): exp_k_any2; 

3: 440 1198 ut Hae op hands 

> 441 1174 node_k_orJ: exp_k_or; 

3 44 1175 node_k_neg]:  exp_k_neg; 

3; 44 1176 tes); 

> 4446 1177 express jontexp._s. flags] = 0; 

3 rt 128 expressionlexp_w_tro_count] = 0; 

3 447 1180 2 ! Now we scan all of the children again, this time generating expression 
> 448 1181 ! blocks for each of them. The TROs of these expression blocks are stored - 
> 449 1186 ! as the operands of the top-level operator. 

; 450 118 d 

> 451 1184 begin 

; t26 1185 ; bind ; ; : 

3 $22 1186 ; operand_list = expressionCexp_l_operand_list]: vectorl,long]; 

: 455 P 1188 3 scan_children(top_node,child, 

; 456 P1189 3 : 

3; 457 P1190 3 : Generate an expression block for the operand and then store its 
3 $28 4 113) ; ! TRO in the operand List of the top-level operator. 

: 460 P1193 3 cdu$generate_expression(.definition, child); . 

> 461 P1194 3 operand_listC.expressionlexp_w_tro_count]] = .child(node_l_code]; 
: 462 P1195 3 increment (expressionlexp_w_tro_count]); 

; 463 1196 3); 

3; 464 1197 2 end; 

; 465 1198 2 . 

3 r+] 1330 § ! Set the size of the expression block in its header. 

3 oe8 160) § set_table_block_size(exp_k_length + .operand_count*4, expression); 

3 rik ico? $ ! Store the TRO of the new block in its representing node. 

3: 472 1205 2 top_node[node_l_code] = .expression - .cdu$gl_table; 

: 473 1206 2 return; 

: 474 1207 2 

3; 475 1208 1 END; 


: 1135 
SE 08 C2 000 SUBL2 SP : 
52 D4 0000 CLRL  OPERAND_COUNT + 1137 
54 08 AC 00 00007 MOVL : 1150. 
2E 64 B81 0000B CMPW 3 (RGT, #46 : 
OD 12 O000E BNEQ 1$ : 
54 0D 90019 PUSHL > 1151 
04 AC OD O012 PUSHL DEFINITION ; 
000000006 00 02 FB 90013 CALLS #2, CDUSGENERATE_PATH ee 
55 08 A 09 6001p 1$: MOVL (R4), CHILD : 116 
08 13 00021 2$: BEQL ; 
32 D6 00085 INCL  OPERAND_COUNT F 
55 04 AS 00 00025 MOVL 4(CHILDY, CHILD : 
F6 11 00029 BRB 2$ F 


003¢ 00008 -ENTRY CDUSGENERATE_EXPRESSION, Save R2,R3,R4,R5 


oo 


a —— a 
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GENCODE3 15-Sep-1984 23:38:5 VAX=-11 Bliss<-32 V4.0-74 Page 17 
“Yoe=000 1 ~3ep-19 Ps $7 38:34 DT SKSVMSMAS TERS CCDU. SRCIGENCODES.832;1° (5) 
| 04 AE 9F 00028 3S: PUSHAB EXPRESSION : 1165 
| 06 AE 52 05 78 000 ASHL #2. OPERAND_COUNT, 4 (SP) om 
04 AE £0 00 DL2 #8. 4(SP) : 
04 AE OF 005 PUSHAB 4(§P) : 
| 000000006 00 08 Fe 003A CALLS #2, LIBSGET_VM : 
: a3 fo Sue Bia. Sra 2 
000000006 00 01 FB 00046 CALLS #1, LIBSSIGNA : 
53 04 AE DO 0004D 4$ MOVL EXPRESSION, R : 1169 
02 A3 05 90 00051 MOVB #5, 2(R3) : 
2c 64 B1 00055 CMPW (RL), #44 + 1171 
05 if 00058 BNEQ 5$ : | 
50 02 00 0005A MOVL #2, RO : 
2B 11 0005D BRB 10$ : 
2D 64 81 OO05F 5$ CMPW (RG), #45 + 1172 
05 12 00062 BNEQ ; 
50 03 DO 00064 MOVL #3, RO : 
21 11 00067 BRB 1 : 
28 64 B1 00069 6$ CMPW (RG), #43 + 1173 
05 12 0006C BNEQ §7$ : 
50 04 DO 0006E MOVL #4, RO : 
17 11 00071 BRB 10$ ; | 
29 64 861 00073 7$ CMPW (R4), #41 3 1174 
05 12 00076 BNEQ $ : 
50 05 0 00078 MOVL #5, RO : 
0D 11 00078 BRB 10$ F 
35 64 B81 0007D 8$ CMPW 0 s(RG), #53 + 1175 
05 13 00080 BEQL 9S ; 
50 01 CE 00082 MNEGL #1, RO : 
03 11 00085 BRB o$ : 
50 07 00 00087 9$: MOVL 7, RO : 
03 A3 50 90 0008A 10$: MOVB RO. 3(R3) : 1170. 
04 A3 D4 OOOBE CLRL = &(R?3) : 1177 
55 08 A& D0 00091 MOVL  8(R4), CHILD : 1196 | 
1D 1300095 11$:  BEQL  12$ : 
55 DD 0009 PUSHL CHILD : 
04 AC DD 00099 PUSHL DEFINITION ; 
FF SF CF O¢ FB 0009C CALLS #2, CDUSGENERATE_EXPRESSION 3 
50 06 A3 3C OOOAI MOVZWL 6(R3), RO : 
08 A340 OC AS DO OO0AS MOVL  12(CHILD), 8(R3)CROJ : 
06 A3 B6 OOOAB INCW 6 (R3) F 
55 04 AS DO OOOAE MOVL 4 (CHILD), CHILD ; 
E1 11 000B2 BRB 11$ : 
53 04 C4 000B4 12$: MULL2 #4, R2 : 1201 
5 B CO 00087 ADDL2 aii, R2 : 
52 04 C6 OOOBA DIVL2 #4, R2 : 
63 52 04 AS 000BD MULW3 #4; Re, (R3) : 
50 000000006 00 p60 000C1 MOVL CDUSGL TABLE, RO : 
51 63 3C 000C8 MOVZWL (R3), Rl ; 
10 AO 51 C6 000¢B ADDL ¢ R1, 16(RO) ; 
OC AG 53 50 ¢€3 OO0CF SUBL3 RO, R3, 12(R4) > 1205 
04 00004 RET > 1208 


; Routine Size: 213 bytes, Routine Base: $CODE$ + 0338 


; 476 1209 1 END 


CREE 


; 477 


1210 0 ELUDOM 


Name 
SCODES 


File 
.$255$DUA28: CSYSLIBIJLIB.L32;1 


Run Time: 2236 
Elapsed Time: 01:06.2 
Lines/CPU Min: 2851 
Lexemes/CPU-Min: 24617 
penery Used: 301 pages 
ation Complete 


Compi 
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15-Sep-1984 25:38:52 


~EXTRN LIBSSIGNAL 


PSECT SUMMARY 


Bytes Attributes 
1040 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, 
Library Statistics 
snonsene yavols oooccses Pages 
Total Loaded Percent Mapped 
18619 4 0 1000 


COMMAND QUALIFIERS 


1040 code + 0 data bytes 
00:25.5 


REL, 


[ 
VAX=11 Bliss-32 V¥4.0-74 Page 18 | 
DT SKSVMSMASTERSCCDU, SRCIGENCODES.832¢1° (5) | 
| 
| 
| 
CON,NOPIC,ALIGN(2) 
Processing 
ime 
00:01.9 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GENCODE3/0BJ=OBJ$:GENCODE3 MSRC$:GENCODE 3/UPDATE=(ENH$: GENCODE 5) 
| 
| 
! 
| 
| 
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